home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1995 January / Simtel - 10000 MSDOS Shareware Programs (Walnut Creek)(January 1995)(Disc 1).ISO / starter / xxencode.bas < prev    next >
BASIC Source File  |  1994-08-20  |  5KB  |  81 lines
  1. 100 REM - BASIC PROGRAM TO CREATE XXENCODE.COM   (fast xxencoder)
  2. 105 REM XXENCODE.BAS created by w8sdz@SimTel.Coast.NET (Keith Petersen)
  3. 110 CLS:PRINT "Creating XXENCODE.COM." : OPEN "XXENCODE.COM" AS #1 LEN = 1
  4. 120 FIELD #1, 1 AS A$: CHECKSUM#=0
  5. 130 FOR I = 1 TO    61
  6. 140  LINESUM#=0: LOCATE 2,3: PRINT "Countdown: "    61 - I ;
  7. 150  FOR J = 1 TO  16: READ BYTE$: BYTE = VAL("&H" + BYTE$)
  8. 160   CHECKSUM# = CHECKSUM# + BYTE: LINESUM# = LINESUM# + BYTE
  9. 170   IF (BYTE < 256) THEN LSET A$=CHR$(BYTE): PUT #1
  10. 180  NEXT J
  11. 190  READ LINETOT$: LINECHECK# = VAL("&H"+LINETOT$)
  12. 200  IF LINECHECK# = LINESUM# THEN GOTO 220
  13. 210  LOCATE 4,2: PRINT "Error in line #"  ;  260 +  10 * I: GOTO 260
  14. 220 NEXT I
  15. 230 CLOSE: READ FILETOT$ : FILECHECK# = VAL(FILETOT$)
  16. 240 IF CHECKSUM# <> FILECHECK# THEN GOTO 260
  17. 250 PRINT: PRINT "XXENCODE.COM created successfully": SYSTEM
  18. 260 PRINT: PRINT "XXENCODE.COM is not valid!": END
  19. 270 DATA E9,81, 1,58,58,45,20,5B,2D,6F,5D,20,5B,64,3A,5D,  54A
  20. 280 DATA 5B,5C,70,61,74,68,5C,5D,62,69,6E,61,72,79,2E,66,  636
  21. 290 DATA 69,6C,20,3C,52,45,54,55,52,4E,3E, D, A,70,72,6F,  4B7
  22. 300 DATA 64,75,63,65,73,20,62,69,6E,61,72,79,2E,58,58,45,  5DC
  23. 310 DATA 20,6F,6E,20,63,75,72,72,65,6E,74,20,64,72,69,76,  5F5
  24. 320 DATA 65,5C,70,61,74,68, D, A,28,70,72,6F,76,69,64,69,  5AA
  25. 330 DATA 6E,67,20,62,69,6E,61,72,79,2E,58,58,45,20,64,6F,  590
  26. 340 DATA 65,73,6E,27,74,20,61,6C,72,65,61,64,79,20,65,78,  5E0
  27. 350 DATA 69,73,74,29,2E, D, A,2D,6F,20,73,77,69,74,63,68,  50C
  28. 360 DATA 20,66,6F,72,63,65,73,20,6F,76,65,72,77,72,69,74,  644
  29. 370 DATA 65,20,6F,66,20,65,78,69,73,74,69,6E,67,20,62,69,  5D0
  30. 380 DATA 6E,61,72,79,2E,58,58,45, D, A,54,68,69,73,20,70,  51C
  31. 390 DATA 72,6F,67,72,61,6D,20,72,65,71,75,69,72,65,73,20,  638
  32. 400 DATA 44,4F,53,20,56,32,2E,30,20,6F,72,20,68,69,67,68,  4AD
  33. 410 DATA 65,72,2E, D, A, D, A,49,6E,70,75,74,20,70,61,74,  4A8
  34. 420 DATA 68,2F,66,69,6C,65,3A,20,20,49,6E,70,75,74,20,66,  547
  35. 430 DATA 69,6C,65,20,65,72,72,6F,72,2E, D, A,4F,75,74,70,  571
  36. 440 DATA 75,74,20,66,69,6C,65,20,65,72,72,6F,72,2E, D, A,  538
  37. 450 DATA 2B, D, A,65,6E,64, D, A,65,78,69,73,74,73,21,20,  471
  38. 460 DATA 20,41,62,6F,72,74,69,6E,67,21, D, A, 0, 0, 1, 0,  38F
  39. 470 DATA  C, 5, 0, 0,2B,2D,30,31,32,33,34,35,36,37,38,39,  276
  40. 480 DATA 41,42,43,44,45,46,47,48,49,4A,4B,4C,4D,4E,4F,50,  488
  41. 490 DATA 51,52,53,54,55,56,57,58,59,5A,61,62,63,64,65,66,  5AC
  42. 500 DATA 67,68,69,6A,6B,6C,6D,6E,6F,70,71,72,73,74,75,76,  6E8
  43. 510 DATA 77,78,79,7A,B4,30,CD,21,3C, 2,73, C,BA,BA, 1,B9,  69F
  44. 520 DATA 2B, 0,E8,A0, 1,E9,28, 1,E8,A4, 1,73,22,BA,E5, 1,  688
  45. 530 DATA B9,14, 0,E8,8F, 1,BF,7F, 0,C6, 5,50,8B,D7,B4, A,  6BE
  46. 540 DATA CD,21,E8,8A, 1,73, 8,BA, 3, 1,B9,B7, 0,EB,D3,BA,  782
  47. 550 DATA BC, 4,8B,F2,B8, 0,3D,CD,21,73, 3,E9,5C, 1,A3,3C,  6BB
  48. 560 DATA  2,8B,CF,2B,CE,49,B0,5C,FD,F2,AE,FC,74, 8,8B,FE,  948
  49. 570 DATA 80,7D, 1,3A,75, 2,47,47,8B,F7,8B,D6,BF,88, 4,AC,  717
  50. 580 DATA  A,C0,74, 3,AA,EB,F8,B8, D, A,AB,57,8B,F2,BF, C,  7E7
  51. 590 DATA  5,8B,D7,AC, A,C0,75, 2,B0,2E,AA,3C,2E,75,F4,B8,  767
  52. 600 DATA 78,78,AB,B8,65, 0,89, 5,33,C9,80,3E,43, 2,FF,74,  6B8
  53. 610 DATA 25,B4,4E,CD,21,3C, 2,74,1D,3C,12,74,19,59,8B,CF,  572
  54. 620 DATA 2B,CA,BB, 2, 0, 3,CB,B4,40,CD,21,BA,28, 2,B9,14,  613
  55. 630 DATA  0,B0, 5,E9,4C,FF,B4,3C,CD,21,59,73, 3,E9,A8, 0,  727
  56. 640 DATA A3,3E, 2,BA,7E, 4,2B,CA,E8,8D, 0,E8,A2, 0,74,40,  6C7
  57. 650 DATA B9, 4, 6,AC,8A,E0,D0,E8,D0,E8,AA,AC,8A,D0,D2,E4,  AAF
  58. 660 DATA D2,E8, 2,C4,AA,8A,E2,AC,8A,D0,D0,E4,D0,E4,8A,CD,  B5B
  59. 670 DATA D2,E8, 2,C4,AA,8A,C2,AA,83,C5, 3,83,FD,2D,75, 3,  890
  60. 680 DATA E8,31, 0,3B,36,40, 2,72,C7,80,3E,42, 2, 1,75,BB,  538
  61. 690 DATA  B,ED,74, 9,2B,36,40, 2,2B,EE,E8,17, 0,BA,20, 2,  50C
  62. 700 DATA B9, 8, 0,E8,32, 0,8B,1E,3E, 2,B4,3E,CD,21,32,C0,  596
  63. 710 DATA B4,4C,CD,21,BA,7E, 4,8B,CF,2B,CA,8B,FA,8B,C5,8B,  8D9
  64. 720 DATA E9,88, 5,BB,44, 2,B4,3F,8A, 5,22,C4,D7,AA,E2,F8,  83A
  65. 730 DATA 8B,CD,C7, 5, D, A,41,41,8B,1E,3E, 2,B4,40,CD,21,  588
  66. 740 DATA 72, 6,8B,FA,47,33,ED,C3,BA, C, 2,B9,14, 0,EB,30,  6D7
  67. 750 DATA BA, C, 5,B9,C8,AF,8B,1E,3C, 2,B4,3F,CD,21,72,1A,  64F
  68. 760 DATA 8B,F2,8B,DA, 3,D8,3B,C1,74, 9,C7, 7, 0, 0,C6, 6,  6D0
  69. 770 DATA 42, 2, 1,89,1E,40, 2, B,C0,C3,BA,F9, 1,B9,13, 0,  53C
  70. 780 DATA E8, 2, 0,EB,8B,50,BB, 2, 0,B4,40,CD,21,58,C3,BE,  728
  71. 790 DATA 80, 0,BF,BC, 4,FC,AC, A,C0,74,2B,B4,20,AC,3A,C4,  78E
  72. 800 DATA 76,FB,3C,2F,74, 4,3C,2D,75,18,8B,D0,8B, 4,24,5F,  5B7
  73. 810 DATA 3D,4F,20,8B,C2,75, B,F6,16,43, 2,46,46,AC,3A,C4,  600
  74. 820 DATA 76, 6,AA,AC,EB,F8,F9,C3,C6, 5, 0,F8,C3,90,62,65,  94E
  75. 830 DATA 67,69,6E,20,36,34,34,20,58,58,45,4E,43,4F,44,45,  47A
  76. 840 DATA 20,76,31,2E,31, 0,44,61,76,69,64,20,50,20,4B,69,  452
  77. 850 DATA 72,73,63,68,62,61,75,6D,2C,20,54,6F,61,64,20,48,  591
  78. 860 DATA 61,6C,6C,2C,20,47,69,76,65,6E,20,74,6F,20,74,68,  57D
  79. 870 DATA 65,20,70,75,62,6C,69,63,20,64,6F,6D,61,69,6E, 0,  59C
  80. 880 DATA 97241
  81.